home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / dev / src / wangisrc.lha / wangi / units / MakeKey.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-03  |  189b  |  16 lines
  1. Program MakeKey;
  2.  
  3. Uses
  4.     DOS, KeyFile;
  5.  
  6. Var
  7.     ID  : LongInt;
  8.     err : Integer;
  9.  
  10. Begin
  11.     Val(ParamStr(3), ID, err);
  12.     if err = 0 then
  13.         WriteKeyFile(ParamStr(1), ParamStr(2), ID);
  14. End. {MakeKey}
  15.  
  16.